Radky DBGridu s rozdilnymi barvami

Otázka od: Pavel Hauptman

20. 11. 2003 11:36

Dobry den,

jak zmenim barvu napr. fontu v DBGridu v zavislosti na hodnote sloupce.
Potreboval bych zvyraznit radky, ktere obsahuji treba zaporne hodnoty.

A nebo jestli znate nejakou free komponentu.

Diky a s pozdravem
Pavel Hauptman




----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)

Odpovedá: Jiri Virt

20. 11. 2003 12:06

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGrid1.Canvas.FillRect(Rect);
case DBGrid1.DataSource.DataSet.FieldByName('Hodnota').AsInteger of
 0:DBGrid1.Canvas.Brush.Color := clWhite;
 1:DBGrid1.Canvas.Brush.Color := clRed;
 2:DBGrid1.Canvas.Brush.Color := clGreen;
end;{case}
DBGrid1.Canvas.Font.Color := Font.Color;
DrawFocusRect(DBGrid1.Canvas.Handle, Rect);
end;


Jirka Virt





----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)

Odpovedá: Pavel Hauptman

20. 11. 2003 11:52

aha, uz vim  
DBGrid1.OnDrawColumnCell

PH.

> -----Original Message-----
> From: Pavel Hauptman [mailto:phauptman@bilbo.cz]
> Sent: Thursday, November 20, 2003 10:33 AM
> To: Delphi forum (el. adresa)
> Subject: Radky DBGridu s rozdilnymi barvami
>
>
> Dobry den,
>
> jak zmenim barvu napr. fontu v DBGridu v zavislosti na
> hodnote sloupce. Potreboval bych zvyraznit radky, ktere
> obsahuji treba zaporne hodnoty.
>
> A nebo jestli znate nejakou free komponentu.
>
> Diky a s pozdravem
> Pavel Hauptman
>
> ---
> Odchozi zprava neobsahuje viry.
> Zkontrolovano antivirovym systemem AVG (http://www.grisoft.cz).
> Verze: 6.0.542 / Virova baze: 336 - datum vydani: 18.11.2003
>
>




----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)